0 REMSAVE"ORDER BLANK-PA",8
10 PRINT"[147][155]":POKE53281,0:POKE53280,4:
15 S$ ="                                "
18 T$=S$:GOSUB60000
20 T$=" [195][207][205][205][207][196][207][210][197][160]MAGAZINES ORDER MENU ":GOSUB60000
28 T$=S$:GOSUB60000:PRINT
29 PRINT:PRINT"   [211]UBSCRIBE TO:":PRINT
30 PRINT"        1 = [208][207][215][197][210][160][208][204][193][217]":PRINT
40 PRINT"        2 = [195][207][205][205][207][196][207][210][197][160][205][201][195][210][207][195][207][205][208][213][212][197][210][211]":PRINT
60 PRINT"        3 = [194][207][212][200] MAGAZINES":PRINT
70 PRINT"        4 = EXIT"
100 GETK$:IFK$<"1"ORK$>"4"THEN100
200 ONVAL(K$)GOSUB1000,2000,3000,4000
300 RUN
1000 M$="    [195]OMMODORE [208]OWER [208]LAY":IS$="":P=1:PY$="":GOSUB60900:RETURN
2000 M$="    [195]OMMODORE [205]ICROCOMPUTERS":IS$="":P=1:PY$="":GOSUB60900:RETURN
3000 M$="  [195]OMMODORE [205]ICROCOMPUTERS  &            [160][195]OMMODORE [208]OWER [208]LAY"
3004 IS$=" EACH":P=2:PY$="(12 ISSUES TOTAL)"
3005 GOSUB60900
3010 RETURN
4000 P$="ORDER FORM":GOTO63000
50000 END
60000 PRINTTAB(20-LEN(T$)/2);T$:RETURN
60900 PRINT"[147][196]O YOU WANT TO SEE THE ORDER BLANK ON"
60910 PRINT:PRINT"THE SCREEN OR THE PRINTER?  <S/P>"
60920 POKE198,0:WAIT198,1:GETPR$:IFPR$<>"P"THENPR$="S"
60924 IF PR$><"P"THEN 60930
60925 PRINT:PRINT"[212]URN ON YOUR PRINTER AND PRESS <SPACE>."
60926 POKE198,0:WAIT198,1:GETK$
60930 GOSUB 61000
60990 RETURN
61000 REM ORDER BLANK
61005 PRINT"[147]";
61006 PRINT"       [207][210][196][197][210][160][194][204][193][206][203] - [204][207][193][196][211][212][193][210] #12"
61010 PRINT"[205]AIL TO:":PRINT"   [195]OMMODORE [194]USINESS [205]ACHINES, [201]NC."
61020 PRINT"   [205]AGAZINE [211]UBSCRIPTION [196]EPT."
61030 PRINT"   [194]OX 651"
61040 PRINT"   [200]OLMES, [208][193]   19043"
61050 PRINT:PRINT"[217][197][211], START MY ONE YEAR (6 ISSUES"IS$")"
61060 PRINT"SUBSCRIPTION TO:      "PY$
61070 PRINTM$
61080 PRINT:PRINT"      [213][211][193][160]$"15*P"[157].00     (CIRCLE ONE)"
61090 PRINT"   [195][193][206][193][196][193][160]$"20*P"[157].00"
61100 PRINT" [207][214][197][210][211][197][193][211][160]$"25*P"[157].00     [213][211][160]CURRENCY ONLY"
61200 PRINT:REMPRINT
61210 PRINT"[206]AME:.................................. [208]HONE ................"
61220 PRINT"[193]DDRESS................................"
61230 PRINT"[195]ITY ................. [211]T. ... [218]IP ...."
61240 PRINT"[211]IGNATURE ............................."
61250 PRINT"[214]ISA/[205]ASTER[195]ARD # ..................... [197]XP. DATE ........."
61255 PRINT
61260 PRINT"[205]AKE CHECK OR MONEY ORDER PAYABLE TO    [195]OMMODORE [208]UBLICATIONS.";
61400 IFPR$="P"THENGOSUB61500
61405 IFPR$="Q"THEN61490
61410 POKE207,0:POKE204,0:GETK$:POKE2039,RND(1)*255:IFK$=""THEN61410
61490 POKE204,1:POKE207,0:RETURN
61500 REM SCREEN DUMP
61510 OPEN4,4,7:CMD4
61515 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
61520 PR$="Q":GOSUB 61000
61580 PRINT#4:CLOSE4
61590 RETURN
63000 REM CONNECTIONS
63010 PRINT"[147]LOAD"CHR$(34)P$CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:END